Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/4-Demos/Third Party Demos/Information Management/Filevision® IV/FilevisionÆ IV/background_13501.txt

Text File | 1990-03-16 | 5KB | 251 lines

-- background: 13501 from stack: in
-- bmap block id: 3801
-- flags: 4000
-- background id: 0
-- name: open
----- HyperTalk script -----
on start
  global int,mark
  set hilite of bkgnd btn "stop" to false
  set hilite of bkgnd btn "start" to true
  put card field "delay" of first card into int
  put the ticks into mark
end start

on stop
  global int
  set hilite of bkgnd btn "stop" to true
  set hilite of bkgnd btn "start" to false
  put 1000000 into int
end stop

on idle
  global mark,int
  get the number of this card
  if it <28
  then repeat 3 times
  set the icon of card button "ptr" to 24992
  wait 10
  set the icon of card button "ptr" to 25382
  wait 10
end repeat
if the ticks - mark > int then
  put the ticks into mark
  play "projector"
  visual effect wipe left
  get name of this card
  if it = "last card" then
    go to first card of this bkgnd
  else
    go to next card
  end if
end if
pass idle
end idle

on closeCard
  set the hilite of card button 1 to true
  wait 20
  set the hilite of card button 1 to false
  wait 20
end closeCard




-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=354 top=316 right=342 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: stop
----- HyperTalk script -----
on mouseUp
  Stop
  play "click"
  set the hilite of bkgnd btn "start" to false
  set the hilite of me to true
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: 6000
-- rect: left=392 top=316 right=342 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: start
----- HyperTalk script -----
on mouseUp
  Start
  play "click"
  set the hilite of bkgnd btn "stop" to false
  set the hilite of me to true
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=431 top=316 right=342 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on nextCard
  get the id of first card
  if it = the id of next card of this background then
    go to first card of this background
  else
    go to next card of this background
  end if
end nextCard

on mouseDown
  play "projector"
  nextCard
end mouseDown

on mouseStillDown
  nextCard
end mouseStillDown




-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=471 top=315 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: start again
----- HyperTalk script -----
on mouseDown
  global int
  unlock screen
  play "click"
  set the hilite of background button "start" to true
  set the hilite of background button "stop" to false
  put zero into int
end mouseDown

on mouseUp
  play "click"
  set the hilite of me to false
  play "projector"
  visual effect wipe left
  go to first card
  visual effect iris open
end mouseUp




-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=314 top=316 right=342 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on previous
  wait 0
  get the id of first card
  if it = the id of first card of this background then
    go to last card of this background
  else
    go to prev card of this background
  end if
end previous

on mouseDown
  play "projector"
  previous
end mouseDown

on mouseStillDown
  previous
end mouseStillDown



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=274 top=316 right=342 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  play "click"
  answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  if it = "Cancel"
  then
  exit mouseUp
end if
if it = "Home"
then
visual effect iris open
domenu home
else
  show menubar
  doMenu "Quit HyperCard"
end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=315 right=342 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  play "projector"
  visual effect wipe left
  go to card 1
end mouseDown